800
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
with Gantt1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	HTMLPicture['p1'] := 'c:\exontrol\images\card.png';
	HTMLPicture['p2'] := 'c:\exontrol\images\sun.png';
	AutoDrag := EXGANTTLib_TLB.exAutoDragCopySnapShot;
	LinesAtRoot := EXGANTTLib_TLB.exNoLinesAtRoot;
	HasLines := EXGANTTLib_TLB.exThinLine;
	ShowFocusRect := False;
	DefaultItemHeight := 26;
	Columns.Add('Task');
	with Chart do
	begin
		ShowNonworkingDates := False;
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 96;
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			Color := $1000000;
			Height := 18;
		end;
	end;
	with Items do
	begin
		h := AddItem('<img>p1:32</img>Group 1');
		CellCaptionFormat[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.exHTML;
		ItemDivider[h] := 0;
		ItemBold[h] := True;
		h1 := InsertItem(h,Null,'Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := InsertItem(h,Null,'Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib_TLB.exLinkText] := 'L1';
		h3 := InsertItem(h,Null,'Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXGANTTLib_TLB.exLinkText] := 'L2';
		h := AddItem('<img>p2:32</img>Group 2');
		CellCaptionFormat[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.exHTML;
		ItemBold[h] := True;
		ItemDivider[h] := 0;
		h1 := InsertItem(h,Null,'Task');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		ExpandItem[0] := True;
	end;
	EndUpdate();
end
799
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image

with Gantt1 do
begin
	BeginUpdate();
	HTMLPicture['p1'] := 'c:\exontrol\images\card.png';
	HTMLPicture['p2'] := 'c:\exontrol\images\sun.png';
	Chart.PaneWidth[True] := 0;
	var_HTMLPicture := HTMLPicture['aka1'];
	HeaderHeight := 24;
	DefaultItemHeight := 48;
	DrawGridLines := EXGANTTLib_TLB.exRowLines;
	GridLineColor := RGB(240,240,240);
	SelBackMode := EXGANTTLib_TLB.exTransparent;
	ColumnAutoResize := False;
	ContinueColumnScroll := False;
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Columns.Item[OleVariant(0)].Def[EXGANTTLib_TLB.exCellCaptionFormat] := OleVariant(1);
	Columns.Item[OleVariant(0)].FormatColumn := 'value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`';
	Columns.Item[OleVariant(0)].Width := 112;
	Columns.Item[OleVariant(1)].Def[EXGANTTLib_TLB.exCellHasCheckBox] := OleVariant(1);
	Columns.Item[OleVariant(2)].LevelKey := '1';
	Columns.Item[OleVariant(3)].LevelKey := '1';
	Columns.Item[OleVariant(4)].LevelKey := '1';
	AutoDrag := EXGANTTLib_TLB.exAutoDragCopyImage;
	SingleSel := False;
	with Items do
	begin
		h := ItemByIndex[1];
		SelectItem[h] := True;
		h := ItemByIndex[2];
		SelectItem[h] := True;
		h := ItemByIndex[3];
		SelectItem[h] := True;
		LockedItemCount[EXGANTTLib_TLB.BottomAlignment] := 1;
		h := LockedItem[EXGANTTLib_TLB.BottomAlignment,0];
		CellCaption[OleVariant(h),OleVariant(1)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...';
		CellSingleLine[OleVariant(h),OleVariant(1)] := EXGANTTLib_TLB.exCaptionWordWrap;
		CellCaptionFormat[OleVariant(h),OleVariant(1)] := EXGANTTLib_TLB.exHTML;
		CellHAlignment[OleVariant(h),OleVariant(1)] := EXGANTTLib_TLB.CenterAlignment;
		ItemDivider[h] := 1;
		ItemDividerLineAlignment[h] := EXGANTTLib_TLB.DividerTop;
	end;
	EndUpdate();
end
798
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := False;
	ContinueColumnScroll := False;
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Columns.Item[OleVariant(2)].LevelKey := '1';
	Columns.Item[OleVariant(3)].LevelKey := '1';
	Columns.Item[OleVariant(4)].LevelKey := '1';
	AutoDrag := EXGANTTLib_TLB.exAutoDragCopyText;
	SingleSel := False;
	with Items do
	begin
		h := ItemByIndex[1];
		SelectItem[h] := True;
		h := ItemByIndex[3];
		SelectItem[h] := True;
		h := ItemByIndex[4];
		SelectItem[h] := True;
		h := ItemByIndex[5];
		SelectItem[h] := True;
		LockedItemCount[EXGANTTLib_TLB.BottomAlignment] := 1;
		h := LockedItem[EXGANTTLib_TLB.BottomAlignment,0];
		CellCaption[OleVariant(h),OleVariant(0)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...';
		CellSingleLine[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.exCaptionWordWrap;
		CellCaptionFormat[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.exHTML;
		CellHAlignment[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.CenterAlignment;
		ItemDivider[h] := 0;
		ItemDividerLineAlignment[h] := EXGANTTLib_TLB.DividerTop;
	end;
	EndUpdate();
end
797
Is it possible to change the indentation during the drag and drop

with Gantt1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	AutoDrag := EXGANTTLib_TLB.exAutoDragPositionAny;
	LinesAtRoot := EXGANTTLib_TLB.exNoLinesAtRoot;
	HasLines := EXGANTTLib_TLB.exSolidLine;
	HasButtons := EXGANTTLib_TLB.exWPlus;
	ShowFocusRect := False;
	SelBackMode := EXGANTTLib_TLB.exTransparent;
	Columns.Add('Task');
	with Chart do
	begin
		ShowNonworkingDates := False;
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 128;
		LevelCount := 2;
		Bars.Item['Task'].Color := $1000000;
	end;
	with Items do
	begin
		h := AddItem('Group 1');
		ItemBold[h] := True;
		ItemDivider[h] := 0;
		h1 := InsertItem(h,Null,'Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := InsertItem(h1,Null,'Task 2');
		AddBar(h2,'Task','1/15/2001','1/17/2001','K4',Null);
		h2 := InsertItem(h1,Null,'Task 3');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib_TLB.exLinkText] := 'L1';
		h3 := InsertItem(h,Null,'Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXGANTTLib_TLB.exLinkText] := 'L2';
		ExpandItem[h] := True;
		ExpandItem[h1] := True;
		h := AddItem('Group 2');
		ItemBold[h] := True;
		ItemDivider[h] := 0;
		LockedItemCount[EXGANTTLib_TLB.BottomAlignment] := 1;
		h := LockedItem[EXGANTTLib_TLB.BottomAlignment,0];
		CellCaption[OleVariant(h),OleVariant(0)] := 'Click a row, and move by dragging <b>up, down</b> to change the row''s parent or <b>left,right</b> to increase or decrease the in' + 
	'dentation.';
		CellSingleLine[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.exCaptionWordWrap;
		CellCaptionFormat[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.exHTML;
	end;
	EndUpdate();
end
796
Is it possible to allow moving an item to another, but keeping its indentation

with Gantt1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	AutoDrag := EXGANTTLib_TLB.exAutoDragPositionKeepIndent;
	LinesAtRoot := EXGANTTLib_TLB.exNoLinesAtRoot;
	HasLines := EXGANTTLib_TLB.exThinLine;
	ShowFocusRect := False;
	Columns.Add('Task');
	with Chart do
	begin
		ShowNonworkingDates := False;
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 96;
		LevelCount := 2;
		Bars.Item['Task'].Color := $1000000;
	end;
	with Items do
	begin
		h := AddItem('Group 1');
		ItemDivider[h] := 0;
		ItemBold[h] := True;
		h1 := InsertItem(h,Null,'Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := InsertItem(h,Null,'Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib_TLB.exLinkText] := 'L1';
		h3 := InsertItem(h,Null,'Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXGANTTLib_TLB.exLinkText] := 'L2';
		ExpandItem[h] := True;
		h := AddItem('Group 2');
		ItemBold[h] := True;
		ItemDivider[h] := 0;
	end;
	EndUpdate();
end
795
How can I change the row's position to another, by drag and drop. Is it possible

with Gantt1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	AutoDrag := EXGANTTLib_TLB.exAutoDragPosition;
	Columns.Add('Task');
	with Chart do
	begin
		ShowNonworkingDates := False;
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 64;
		LevelCount := 2;
		Bars.Item['Task'].Color := $1000000;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib_TLB.exLinkText] := 'L1';
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXGANTTLib_TLB.exLinkText] := 'L2';
	end;
	EndUpdate();
end
794
Have seen the RenderType, but do not know what kind of values should I use

with Gantt1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Columns.Add('Task');
	BackColorHeader := $1000000;
	with Chart do
	begin
		BackColorLevelHeader := $1000000;
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 64;
		LevelCount := 2;
		Bars.Item['Task'].Color := $1000000;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib_TLB.exLinkText] := 'L1';
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXGANTTLib_TLB.exLinkText] := 'L2';
	end;
	VisualAppearance.RenderType := -2147483393;
	EndUpdate();
end
793
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Item')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		Filter := 'Child 1';
		FilterType := EXGANTTLib_TLB.exFilter;
	end;
	with (IUnknown(Columns.Add('Date')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		DisplayFilterDate := True;
		FilterList := Integer(EXGANTTLib_TLB.exShowExclude) Or Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exShowCheckBox) Or Integer(EXGANTTLib_TLB.exNoItems);
		Filter := '12/28/2010';
		FilterType := EXGANTTLib_TLB.exDate;
	end;
	FilterCriteria := '%0 or %1';
	Description[EXGANTTLib_TLB.exFilterBarOr] := '<font ;18><fgcolor=FF0000>or</fgcolor></font>';
	Description[EXGANTTLib_TLB.exFilterBarAnd] := '<font ;18><fgcolor=FF0000>and</fgcolor></font>';
	with Items do
	begin
		h := AddItem('Root 1');
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1')),OleVariant(1)] := '12/27/2010';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 2')),OleVariant(1)] := '12/28/2010';
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1')),OleVariant(1)] := '12/29/2010';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 2')),OleVariant(1)] := '12/30/2010';
	end;
	ApplyFilter();
	EndUpdate();
end
792
Is it possible exclude the dates being selected in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	with (IUnknown(Columns.Add('Date')) as EXGANTTLib_TLB.Column) do
	begin
		SortType := EXGANTTLib_TLB.SortDate;
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		DisplayFilterDate := True;
		FilterList := Integer(EXGANTTLib_TLB.exShowExclude) Or Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exShowCheckBox) Or Integer(EXGANTTLib_TLB.exNoItems);
	end;
	with Items do
	begin
		AddItem('12/27/2010');
		AddItem('12/28/2010');
		AddItem('12/29/2010');
		AddItem('12/30/2010');
		AddItem('12/31/2010');
	end;
	EndUpdate();
end
791
How can I display a calendar control inside the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	with (IUnknown(Columns.Add('Date')) as EXGANTTLib_TLB.Column) do
	begin
		SortType := EXGANTTLib_TLB.SortDate;
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		DisplayFilterDate := True;
		FilterList := Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exShowCheckBox) Or Integer(EXGANTTLib_TLB.exNoItems);
	end;
	with Items do
	begin
		AddItem('12/27/2010');
		AddItem('12/28/2010');
		AddItem('12/29/2010');
		AddItem('12/30/2010');
		AddItem('12/31/2010');
	end;
	EndUpdate();
end
790
Is it possible to include the dates as checkb-boxes in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	with (IUnknown(Columns.Add('Dates')) as EXGANTTLib_TLB.Column) do
	begin
		SortType := EXGANTTLib_TLB.SortDate;
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		DisplayFilterDate := True;
		FilterList := Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exShowCheckBox);
		Filter := 'to 12/27/2010';
		FilterType := EXGANTTLib_TLB.exDate;
	end;
	with Items do
	begin
		AddItem('12/27/2010');
		AddItem('12/28/2010');
		AddItem('12/29/2010');
		AddItem('12/30/2010');
		AddItem('12/31/2010');
	end;
	ApplyFilter();
	EndUpdate();
end
789
How can I filter items for dates before a specified date

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	with (IUnknown(Columns.Add('Dates')) as EXGANTTLib_TLB.Column) do
	begin
		SortType := EXGANTTLib_TLB.SortDate;
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		DisplayFilterDate := True;
		FilterList := Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exNoItems);
		Filter := 'to 12/27/2010';
		FilterType := EXGANTTLib_TLB.exDate;
	end;
	with Items do
	begin
		AddItem('12/27/2010');
		AddItem('12/28/2010');
		AddItem('12/29/2010');
		AddItem('12/30/2010');
		AddItem('12/31/2010');
	end;
	ApplyFilter();
	EndUpdate();
end
788
Is it possible to filter dates

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	with (IUnknown(Columns.Add('Dates')) as EXGANTTLib_TLB.Column) do
	begin
		SortType := EXGANTTLib_TLB.SortDate;
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		DisplayFilterDate := True;
		FilterList := Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exNoItems);
	end;
	with Items do
	begin
		AddItem('12/27/2010');
		AddItem('12/28/2010');
		AddItem('12/29/2010');
		AddItem('12/30/2010');
		AddItem('12/31/2010');
	end;
	EndUpdate();
end
787
Is it possible to change the Exclude field name to something different, in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	Description[EXGANTTLib_TLB.exFilterBarExclude] := 'Leaving out';
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXGANTTLib_TLB.exShowExclude) Or Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
	end;
	EndUpdate();
end
786
How can I display the Exclude field in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXGANTTLib_TLB.exShowExclude) Or Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
	end;
	EndUpdate();
end
785
Is it possible to show and ensure the focused item from the control, in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXGANTTLib_TLB.exShowFocusItem) Or Integer(EXGANTTLib_TLB.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		SelectItem[InsertItem(h,Null,'Child 2')] := True;
		ExpandItem[h] := True;
	end;
	EndUpdate();
end
784
Is it possible to show only blanks items with no listed items from the control

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXGANTTLib_TLB.exShowBlanks) Or Integer(EXGANTTLib_TLB.exNoItems);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
	end;
	EndUpdate();
end
783
How can I include the blanks items in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := Integer(EXGANTTLib_TLB.exShowBlanks) Or Integer(EXGANTTLib_TLB.exShowCheckBox);
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
	end;
	EndUpdate();
end
782
How can I select multiple items in the drop down filter window, using check-boxes

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGANTTLib_TLB.exShowCheckBox;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
	end;
	EndUpdate();
end
781
Is it possible to allow a single item being selected in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterList := EXGANTTLib_TLB.exSingleSel;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
	end;
	EndUpdate();
end
780
How can I display no (All) item in the drop down filter window

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	Description[EXGANTTLib_TLB.exFilterBarAll] := '';
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		FilterList := EXGANTTLib_TLB.exNoItems;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
	end;
	EndUpdate();
end
779
Is it possible to display no items in the drop down filter window, so only the pattern is visible

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Items')) as EXGANTTLib_TLB.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := True;
		FilterList := EXGANTTLib_TLB.exNoItems;
	end;
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
	end;
	EndUpdate();
end
778
How can I show the child items with no identation

with Gantt1 do
begin
	LinesAtRoot := EXGANTTLib_TLB.exGroupLinesOutside;
	Indent := 12;
	HasLines := EXGANTTLib_TLB.exThinLine;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		InsertItem(h,Null,'Child 3');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		InsertItem(h,Null,'Child 3');
	end;
end
777
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)

with Gantt1 do
begin
	LinesAtRoot := EXGANTTLib_TLB.exGroupLinesAtRoot;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		InsertItem(h,Null,'Child 3');
		ExpandItem[h] := True;
	end;
end
776
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)

with Gantt1 do
begin
	LinesAtRoot := EXGANTTLib_TLB.exGroupLinesOutside;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		InsertItem(h,Null,'Child 3');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		InsertItem(h,Null,'Child 3');
	end;
end
775
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)

with Gantt1 do
begin
	LinesAtRoot := EXGANTTLib_TLB.exGroupLinesInsideLeaf;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		InsertItem(h,Null,'Child 3');
		ExpandItem[h] := True;
	end;
end
774
Is there other ways of showing the hierarchy lines (exGroupLinesInside)

with Gantt1 do
begin
	LinesAtRoot := EXGANTTLib_TLB.exGroupLinesInside;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		InsertItem(h,Null,'Child 3');
		ExpandItem[h] := True;
	end;
end
773
Is there other ways of showing the hierarchy lines (exGroupLines)

with Gantt1 do
begin
	LinesAtRoot := EXGANTTLib_TLB.exGroupLines;
	Indent := 12;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Null,'Child 1');
		InsertItem(InsertItem(h,Null,'Child 2'),Null,'SubChild 2');
		InsertItem(h,Null,'Child 3');
		ExpandItem[h] := True;
	end;
end
772
Is it possible background color displayed when the mouse passes over an item

with Gantt1 do
begin
	BeginUpdate();
	Columns.Add('Def');
	HotBackColor := RGB(0,0,128);
	HotForeColor := RGB(255,255,255);
	with Items do
	begin
		AddItem('Item A');
		AddItem('Item B');
		AddItem('Item C');
	end;
	EndUpdate();
end
771
How can I simulate displaying groups

with Gantt1 do
begin
	HasLines := EXGANTTLib_TLB.exNoLine;
	ScrollBySingleLine := True;
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		Add('Name');
		Add('A');
		Add('B');
		Add('C');
	end;
	with Items do
	begin
		h := AddItem('Group 1');
		CellHAlignment[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.CenterAlignment;
		ItemDivider[h] := 0;
		ItemDividerLineAlignment[h] := EXGANTTLib_TLB.DividerBoth;
		ItemHeight[h] := 24;
		SortableItem[h] := False;
		h1 := InsertItem(h,Null,'Child 1');
		CellCaption[OleVariant(h1),OleVariant(1)] := OleVariant(1);
		CellCaption[OleVariant(h1),OleVariant(2)] := OleVariant(2);
		CellCaption[OleVariant(h1),OleVariant(3)] := OleVariant(3);
		h1 := InsertItem(h,Null,'Child 2');
		CellCaption[OleVariant(h1),OleVariant(1)] := OleVariant(4);
		CellCaption[OleVariant(h1),OleVariant(2)] := OleVariant(5);
		CellCaption[OleVariant(h1),OleVariant(3)] := OleVariant(6);
		ExpandItem[h] := True;
		h := AddItem('Group 2');
		CellHAlignment[OleVariant(h),OleVariant(0)] := EXGANTTLib_TLB.CenterAlignment;
		ItemDivider[h] := 0;
		ItemDividerLineAlignment[h] := EXGANTTLib_TLB.DividerBoth;
		ItemHeight[h] := 24;
		SortableItem[h] := False;
		h1 := InsertItem(h,Null,'Child 1');
		CellCaption[OleVariant(h1),OleVariant(1)] := OleVariant(1);
		CellCaption[OleVariant(h1),OleVariant(2)] := OleVariant(2);
		CellCaption[OleVariant(h1),OleVariant(3)] := OleVariant(3);
		h1 := InsertItem(h,Null,'Child 2');
		CellCaption[OleVariant(h1),OleVariant(1)] := OleVariant(4);
		CellCaption[OleVariant(h1),OleVariant(2)] := OleVariant(5);
		CellCaption[OleVariant(h1),OleVariant(3)] := OleVariant(6);
		ExpandItem[h] := True;
	end;
end
770
Is it possible to change the height for all items at once

with Gantt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[0] := True;
	end;
	EndUpdate();
	DefaultItemHeight := 12;
	Items.ItemHeight[0] := 12;
end
769
Is it possible to specify the cell's value but still want to display some formatted text instead the value

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	Columns.Add('Value');
	Columns.Add('FormatCell');
	with Items do
	begin
		h := AddItem(OleVariant(1));
		CellCaption[OleVariant(h),OleVariant(1)] := OleVariant(12);
		FormatCell[OleVariant(h),OleVariant(1)] := 'currency(value)';
		h := AddItem('1/1/2001');
		CellCaption[OleVariant(h),OleVariant(1)] := '1/1/2001';
		CellCaptionFormat[OleVariant(h),OleVariant(1)] := EXGANTTLib_TLB.exHTML;
		FormatCell[OleVariant(h),OleVariant(1)] := 'longdate(value) replace ''2001'' with ''<b>2001</b>''';
	end;
	EndUpdate();
end
768
Is it possible to specify the cell's value but still want to display some formatted text instead the value

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Name');
		with (IUnknown(Add('Values')) as EXGANTTLib_TLB.Column) do
		begin
			SortType := EXGANTTLib_TLB.SortNumeric;
			AllowSizing := False;
			Width := 64;
			FormatColumn := '((0:=dbl(value)) < 10? ''<fgcolor=808080><font ;7>'' :''<b>'') + currency(=:0)';
			Def[EXGANTTLib_TLB.exCellCaptionFormat] := OleVariant(1);
		end;
	end;
	with Items do
	begin
		h := AddItem('Root');
		FormatCell[OleVariant(h),OleVariant(1)] := '''<none>''';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1')),OleVariant(1)] := OleVariant(10);
		CellCaption[OleVariant(InsertItem(h,Null,'Child 2')),OleVariant(1)] := OleVariant(15);
		CellCaption[OleVariant(InsertItem(h,Null,'Child 3')),OleVariant(1)] := OleVariant(25);
		ExpandItem[h] := True;
	end;
	EndUpdate();
end
767
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Name');
		with (IUnknown(Add('Values')) as EXGANTTLib_TLB.Column) do
		begin
			SortType := EXGANTTLib_TLB.SortNumeric;
			AllowSizing := False;
			Width := 64;
			FormatColumn := '((0:=dbl(value)) < 10? ''<fgcolor=808080><font ;7>'' :''<b>'') + currency(=:0)';
			Def[EXGANTTLib_TLB.exCellCaptionFormat] := OleVariant(1);
		end;
	end;
	with Items do
	begin
		h := AddItem('Root');
		FormatCell[OleVariant(h),OleVariant(1)] := ' ';
		CellCaption[OleVariant(InsertItem(h,Null,'Child 1')),OleVariant(1)] := OleVariant(10);
		CellCaption[OleVariant(InsertItem(h,Null,'Child 2')),OleVariant(1)] := OleVariant(15);
		CellCaption[OleVariant(InsertItem(h,Null,'Child 3')),OleVariant(1)] := OleVariant(25);
		ExpandItem[h] := True;
	end;
	EndUpdate();
end
766
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)

with Gantt1 do
begin
	BeginUpdate();
	with ConditionalFormats.Add('1','K1') do
	begin
		BackColor := $ff;
		ApplyTo := EXGANTTLib_TLB.FormatApplyToEnum($1);
	end;
	with ConditionalFormats.Add('1','K2') do
	begin
		BackColor := $ff;
		ApplyTo := EXGANTTLib_TLB.FormatApplyToEnum($2);
	end;
	MarkSearchColumn := False;
	DrawGridLines := EXGANTTLib_TLB.exRowLines;
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
		Add('Column 3');
	end;
	with Items do
	begin
		AddItem(Null);
		AddItem(Null);
		AddItem(Null);
	end;
	EndUpdate();
end
765
How can I get the list of items as they are displayed
with Gantt1 do
begin
	BeginUpdate();
	BackColorAlternate := RGB(240,240,240);
	Columns.Add('Names');
	with Items do
	begin
		AddItem('Mantel');
		AddItem('Mechanik');
		AddItem('Motor');
		AddItem('Murks');
		AddItem('Märchen');
		AddItem('Möhren');
		AddItem('Mühle');
	end;
	Columns.Item[OleVariant(0)].SortOrder := EXGANTTLib_TLB.SortAscending;
	EndUpdate();
	OutputDebugString( GetItems(OleVariant(1)) );
end
764
Is posible to reduce the size of the picture to be shown in the column's caption

with Gantt1 do
begin
	BeginUpdate();
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HeaderHeight := 48;
	(IUnknown(Columns.Add('DefaultSize')) as EXGANTTLib_TLB.Column).HTMLCaption := 'Default-Size <img>pic1</img> Picture';
	(IUnknown(Columns.Add('CustomSize')) as EXGANTTLib_TLB.Column).HTMLCaption := 'Custom-Size <img>pic1:16</img> Picture';
	EndUpdate();
end
763
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

with Gantt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with ConditionalFormats.Add('1',Null) do
	begin
		Bold := True;
		ForeColor := $ff;
		ApplyTo := EXGANTTLib_TLB.FormatApplyToEnum($1);
	end;
	Columns.Add('C1');
	with (IUnknown(Columns.Add('C2')) as EXGANTTLib_TLB.Column) do
	begin
		HeaderBold := True;
		HTMLCaption := '<fgcolor=FF0000>C2';
	end;
	with Items do
	begin
		CellCaption[OleVariant(AddItem(OleVariant(10))),OleVariant(1)] := OleVariant(11);
		CellCaption[OleVariant(AddItem(OleVariant(12))),OleVariant(1)] := OleVariant(13);
	end;
	EndUpdate();
end
762
The item is not getting selected when clicking the cell's checkbox. What should I do

// CellStateChanged event - Fired after cell's state has been changed.
procedure TForm1.Gantt1CellStateChanged(ASender: TObject; Item : HITEM;ColIndex : Integer);
begin
	with Gantt1 do
	begin
		Items.SelectItem[Item] := True;
	end
end;

with Gantt1 do
begin
	(IUnknown(Columns.Add('Check')) as EXGANTTLib_TLB.Column).Def[EXGANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
	with Items do
	begin
		AddItem(OleVariant(0));
		AddItem(OleVariant(1));
		AddItem(OleVariant(2));
		AddItem(OleVariant(3));
	end;
end
761
Is it possible to limit the height of the item while resizing

// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TForm1.Gantt1AddItem(ASender: TObject; Item : HITEM);
begin
	with Gantt1 do
	begin
		Items.ItemMinHeight[Item] := 18;
		Items.ItemMaxHeight[Item] := 72;
	end
end;

with Gantt1 do
begin
	BeginUpdate();
	ItemsAllowSizing := EXGANTTLib_TLB.exResizeItem;
	ScrollBySingleLine := False;
	BackColorAlternate := RGB(240,240,240);
	Columns.Add('Names');
	with Items do
	begin
		AddItem('Mantel');
		AddItem('Mechanik');
		AddItem('Motor');
		AddItem('Murks');
		AddItem('Märchen');
		AddItem('Möhren');
		AddItem('Mühle');
	end;
	Columns.Item[OleVariant(0)].SortOrder := EXGANTTLib_TLB.SortAscending;
	EndUpdate();
end
760
Is it possible to copy the hierarchy of the control using the GetItems method

with Gantt1 do
begin
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	Columns.Add('Def');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
	end;
	PutItems(GetItems(OleVariant(-1)),Null);
end
759
Does your control supports multiple lines tooltip

with Gantt1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	ToolTipDelay := 1;
	(IUnknown(Columns.Add('tootip')) as EXGANTTLib_TLB.Column).ToolTip := '<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, i' + 
	'cons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>';
end
758
It is possible to write the word in red/color or to add a tooltip or a link to the word

with Gantt1 do
begin
	Columns.Add('Task');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/26/2000';
		PaneWidth[False] := 32;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'','1/1/2001','1/5/2001','K1','some <fgcolor=FF0000>red</fgcolor> text');
		ItemBar[h1,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(False);
		ItemBar[h1,'K1',EXGANTTLib_TLB.exBarToolTip] := 'And here goes the <b>tooltip</b> of the text. ';
		AddItem('');
		AddItem('');
		AddItem('');
		AddItem('');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		ItemBar[h2,'K2',EXGANTTLib_TLB.exBarToolTip] := 'And here goes the <b>tooltip</b> of the bar. ';
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXGANTTLib_TLB.exLinkText] := 'L<b>inke</b>d to a bar';
		Link['L1',EXGANTTLib_TLB.exLinkToolTip] := 'And here goes the <b>tooltip</b> of the link. ';
	end;
end
757
It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		Label[EXGANTTLib_TLB.exMonth] := '<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> ''<%yy%><|><%loc_mmmm%> <%yyyy%>';
		Label[EXGANTTLib_TLB.exWeek] := '<|><%ww%><|><%loc_m3%> <%d%>, ''<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256';
		Label[EXGANTTLib_TLB.exDay] := '<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%' + 
	'>, <%yyyy%><||><||>4096';
		Label[EXGANTTLib_TLB.exHour] := '<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>' + 
	' <%h%> <%AM/PM%><||><||>65536';
		Label[EXGANTTLib_TLB.exMinute] := '<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <' + 
	'%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
		Label[EXGANTTLib_TLB.exSecond] := '<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><' + 
	'|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
		LabelToolTip[EXGANTTLib_TLB.exMonth] := '<%loc_mmmm%>/<%yyyy%>';
		LabelToolTip[EXGANTTLib_TLB.exWeek] := '<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>';
		LabelToolTip[EXGANTTLib_TLB.exDay] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>';
		LabelToolTip[EXGANTTLib_TLB.exHour] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>';
		LabelToolTip[EXGANTTLib_TLB.exMinute] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
		LabelToolTip[EXGANTTLib_TLB.exSecond] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
	end;
	with Chart do
	begin
		PaneWidth[False] := 0;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 4;
		Level[0].Label := OleVariant(4096);
		Level[1].Label := OleVariant(65536);
		Level[2].Label := OleVariant(1048576);
		with Level[3] do
		begin
			Count := 15;
			Label := OleVariant(16777216);
		end;
	end;
	EndUpdate();
end
756
The chart's header is displayed in English. Can I change so it is the same as in my regional settings

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		Label[EXGANTTLib_TLB.exMonth] := '<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> ''<%yy%><|><%loc_mmmm%> <%yyyy%>';
		Label[EXGANTTLib_TLB.exWeek] := '<|><%ww%><|><%loc_m3%> <%d%>, ''<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256';
		Label[EXGANTTLib_TLB.exDay] := '<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%' + 
	'>, <%yyyy%><||><||>4096';
		Label[EXGANTTLib_TLB.exHour] := '<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>' + 
	' <%h%> <%AM/PM%><||><||>65536';
		Label[EXGANTTLib_TLB.exMinute] := '<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <' + 
	'%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
		Label[EXGANTTLib_TLB.exSecond] := '<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, ''<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><' + 
	'|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
		LabelToolTip[EXGANTTLib_TLB.exMonth] := '<%loc_mmmm%>/<%yyyy%>';
		LabelToolTip[EXGANTTLib_TLB.exWeek] := '<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>';
		LabelToolTip[EXGANTTLib_TLB.exDay] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>';
		LabelToolTip[EXGANTTLib_TLB.exHour] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>';
		LabelToolTip[EXGANTTLib_TLB.exMinute] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>';
		LabelToolTip[EXGANTTLib_TLB.exSecond] := '<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>';
	end;
	with Chart do
	begin
		PaneWidth[False] := 0;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		UnitScale := EXGANTTLib_TLB.exDay;
	end;
	EndUpdate();
end
755
It is possible to use seconds/minutes/hours as time scale in your control

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		PaneWidth[False] := 0;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 4;
		Level[0].Label := OleVariant(4096);
		Level[1].Label := OleVariant(65536);
		Level[2].Label := OleVariant(1048576);
		with Level[3] do
		begin
			Count := 15;
			Label := OleVariant(16777216);
		end;
	end;
	EndUpdate();
end
754
How can I prevent highlighting the column from the cursor - point

with Gantt1 do
begin
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJg' + 
	'EgI=');
	Background[EXGANTTLib_TLB.exCursorHoverColumn] := $1000000;
	(IUnknown(Columns.Add('S')) as EXGANTTLib_TLB.Column).Width := 32;
	(IUnknown(Columns.Add('Level 1')) as EXGANTTLib_TLB.Column).LevelKey := OleVariant(1);
	(IUnknown(Columns.Add('Level 2')) as EXGANTTLib_TLB.Column).LevelKey := OleVariant(1);
	(IUnknown(Columns.Add('Level 3')) as EXGANTTLib_TLB.Column).LevelKey := OleVariant(1);
	(IUnknown(Columns.Add('E1')) as EXGANTTLib_TLB.Column).Width := 32;
	(IUnknown(Columns.Add('E2')) as EXGANTTLib_TLB.Column).Width := 32;
	(IUnknown(Columns.Add('E3')) as EXGANTTLib_TLB.Column).Width := 32;
	(IUnknown(Columns.Add('E4')) as EXGANTTLib_TLB.Column).Width := 32;
end
753
Can I use and display PNG pictures

with Gantt1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\card.png';
	HeaderHeight := 48;
	(IUnknown(Columns.Add('ColumnName')) as EXGANTTLib_TLB.Column).HTMLCaption := '<b>HTML</b> Column <img>pic1</img> Picture';
end
752
Is it possible to specify the background color for the item in the chart part only

with Gantt1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Null,'Child 1');
		Gantt1.Chart.ItemBackColor[hC] := $ff;
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
	end;
end
751
Is it possible to apply different visual appearance, color, sizes for item in the list and chart part

with Gantt1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	VisualAppearance.Add(3,'CP:2 2 2 -2 -2');
	Columns.Add('Default');
	SelBackMode := EXGANTTLib_TLB.exTransparent;
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Null,'Child 1');
		ItemBackColor[hC] := $1ffff00;
		Gantt1.Chart.ItemBackColor[hC] := $300ff00;
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
	end;
end
750
How do I change the visual appearance for the entire item, using your EBN technology

with Gantt1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Null,'Child 1');
		ItemBackColor[hC] := $1000000;
		Gantt1.Chart.ItemBackColor[hC] := $1000000;
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
	end;
end
749
is it possible to specify the a different background color for the item, list and chart part

with Gantt1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Null,'Child 1');
		ItemBackColor[hC] := $ff;
		Gantt1.Chart.ItemBackColor[hC] := $ffff;
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
	end;
end
748
Is it possible to specify the background color for the entire row, including the chart part

with Gantt1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Null,'Child 1');
		ItemBackColor[hC] := $ff;
		Gantt1.Chart.ItemBackColor[hC] := $ff;
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
	end;
end
747
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.Gantt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with Gantt1 do
	begin
		ShowToolTip(Chart.BarFromPoint[-1,-1],'','8','8',Null);
	end
end;

with Gantt1 do
begin
	BeginUpdate();
	Columns.Add('Def');
	with Chart do
	begin
		PaneWidth[False] := 64;
		LevelCount := 2;
		FirstVisibleDate := '1/1/2010';
	end;
	with Items do
	begin
		h := AddItem('Task');
		AddBar(h,'Task','1/2/2010','1/5/2010','A','A');
		AddBar(h,'Task','1/5/2010','1/8/2010','B','B');
		AddBar(h,'Task','1/8/2010','1/11/2010','C','C');
	end;
	EndUpdate();
end
746
Is it possible to move an item from a parent to another

with Gantt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		AddItem('A');
		AddItem('B');
		InsertItem(AddItem('C'),'','D');
		SetParent(FindItem['D',OleVariant(0),Null],FindItem['A',OleVariant(0),Null]);
	end;
	EndUpdate();
end
745
How can I change the identation for an item

with Gantt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		AddItem('A');
		AddItem('B');
		InsertItem(AddItem('C'),'','D');
		SetParent(FindItem['D',OleVariant(0),Null],0);
	end;
	EndUpdate();
end
744
How can I specify the levels using the user's Regional and Language Options

with Gantt1 do
begin
	BeginUpdate();
	Font.Name := 'Arial Unicode MS';
	HeaderHeight := 36;
	with Chart do
	begin
		FirstVisibleDate := '5/30/2010';
		PaneWidth[False] := 0;
		FirstWeekDay := EXGANTTLib_TLB.exMonday;
		UnitWidth := 36;
		LevelCount := 2;
		with Level[0] do
		begin
			Label := '<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> ';
			ToolTip := Label;
			Unit := EXGANTTLib_TLB.exWeek;
		end;
		with Level[1] do
		begin
			Label := '<%loc_ddd%><br><%d%>';
			ToolTip := Label;
		end;
		ToolTip := '<%loc_ldate%>';
	end;
	EndUpdate();
end
743
How can I display a bar only using a gradient color and shadow

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
		with Bars.Item['Task'] do
		begin
			StartColor := $ffffff;
			EndColor := Color;
		end;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
		h := AddItem('W/h Gradient');
		AddBar(h,'Task','1/4/2010','1/9/2010','',Null);
		ItemBar[h,'',EXGANTTLib_TLB.exBarPattern] := OleVariant(8291);
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
742
Is it possible to display a bar only using a gradient color using the exBarColor option

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
		with Bars.Item['Task'] do
		begin
			StartColor := $ffffff;
			EndColor := StartColor;
			Height := 17;
		end;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
		h := AddItem('W/h Gradient');
		AddBar(h,'Task','1/4/2010','1/9/2010','',Null);
		ItemBar[h,'',EXGANTTLib_TLB.exBarPattern] := OleVariant(227);
		h := AddItem('W/h Color');
		AddBar(h,'Task','1/4/2010','1/9/2010','',Null);
		ItemBar[h,'',EXGANTTLib_TLB.exBarPattern] := OleVariant(227);
		ItemBar[h,'',EXGANTTLib_TLB.exBarColor] := OleVariant(255);
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
741
Is it possible to display a bar only using a gradient color

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
		with Bars.Item['Task'] do
		begin
			StartColor := $ffffff;
			EndColor := StartColor;
			Height := 17;
		end;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
		h := AddItem('W/h Gradient');
		AddBar(h,'Task','1/4/2010','1/9/2010','',Null);
		ItemBar[h,'',EXGANTTLib_TLB.exBarPattern] := OleVariant(227);
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
740
Is it possible to display a bar only using a gradient color

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
		with Bars.Item['Task'] do
		begin
			StartColor := $ffffff;
			EndColor := Color;
		end;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
		h := AddItem('W/h Gradient');
		AddBar(h,'Task','1/4/2010','1/9/2010','',Null);
		ItemBar[h,'',EXGANTTLib_TLB.exBarPattern] := OleVariant(99);
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
739
How can I display a specified bar only with a thicker border

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
		h := AddItem('W/h Border');
		AddBar(h,'Task','1/4/2010','1/9/2010','',Null);
		ItemBar[h,'',EXGANTTLib_TLB.exBarPattern] := OleVariant(4099);
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
738
Is it possible to display the shadow for a specified bar

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
		h := AddItem('W/h Shadow');
		AddBar(h,'Task','1/4/2010','1/9/2010','',Null);
		ItemBar[h,'',EXGANTTLib_TLB.exBarPattern] := OleVariant(8195);
		AddBar(AddItem('Original'),'Task','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
737
Is it possible to display the task bars with a gradient color

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
		Bars.Copy('Task','TaskO');
		with Bars.Item['Task'] do
		begin
			Pattern := Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox) Or Integer(EXGANTTLib_TLB.exPatternShadow);
			StartColor := $ffffff;
			EndColor := Color;
		end;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Original'),'TaskO','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Pattern Gradient'),'Task','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Original'),'TaskO','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
736
How can I know the type of bars I can displays using predefined patterns

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
		with Bars do
		begin
			Add('Box').Pattern := EXGANTTLib_TLB.exPatternBox;
			Add('ThickBox').Pattern := Integer(EXGANTTLib_TLB.exPatternThickBox) Or Integer(EXGANTTLib_TLB.exPatternBox);
			Add('DiagBox').Pattern := Integer(EXGANTTLib_TLB.exPatternThickBox) Or Integer(EXGANTTLib_TLB.exPatternBDiagonal);
			Copy('Task','Shadow').Pattern := Integer(EXGANTTLib_TLB.exPatternFrameShadow) Or Integer(EXGANTTLib_TLB.exPatternShadow);
			Copy('Task','TShadow').Pattern := Integer(EXGANTTLib_TLB.exPatternFrameShadow) Or Integer(EXGANTTLib_TLB.exPatternThickBox) Or Integer(EXGANTTLib_TLB.exPatternDiagCross);
			with Add('HGrad1') do
			begin
				Pattern := EXGANTTLib_TLB.exPatternBox;
				StartColor := $ffffff;
				EndColor := $ff0000;
			end;
			with Add('HGrad2') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternBox) Or Integer(EXGANTTLib_TLB.exPatternShadow);
				StartColor := $ffffff;
				EndColor := $ff0000;
				Color := $ff0000;
			end;
			with Add('HGrad3') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternBox) Or Integer(EXGANTTLib_TLB.exPatternShadow);
				StartColor := $ffffff;
				EndColor := StartColor;
				Color := $ff0000;
			end;
			with Add('HGrad4') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternThickBox) Or Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternBox);
				StartColor := $ffffff;
				EndColor := StartColor;
				Color := $ff0000;
			end;
			with Add('HGrad5') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternFrameShadow) Or Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternBox);
				StartColor := $ff00;
				EndColor := $ff;
				Color := $ff0000;
			end;
			with Add('VGrad1') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox);
				StartColor := $ffffff;
				EndColor := $ff0000;
				Height := 14;
			end;
			with Add('VGrad2') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox) Or Integer(EXGANTTLib_TLB.exPatternShadow);
				StartColor := $ffffff;
				EndColor := $ff0000;
				Color := $ff0000;
				Height := 14;
			end;
			with Add('VGrad3') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox) Or Integer(EXGANTTLib_TLB.exPatternShadow);
				StartColor := $ffffff;
				EndColor := StartColor;
				Color := $ff0000;
				Height := 14;
			end;
			with Add('VGrad4') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternThickBox) Or Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox);
				StartColor := $ffffff;
				EndColor := StartColor;
				Color := $ff0000;
				Height := -1;
			end;
			with Add('VGrad5') do
			begin
				Pattern := Integer(EXGANTTLib_TLB.exPatternFrameShadow) Or Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox);
				StartColor := $ff00;
				EndColor := $ff;
				Color := $ff0000;
				Height := 14;
			end;
		end;
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Box'),'Box','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Thick Box'),'ThickBox','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Thick Box Diag'),'DiagBox','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Shadow'),'Shadow','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Thick Shadow'),'TShadow','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Solid Gradient'),'HGrad1','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Pattern Gradient'),'HGrad2','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Pattern Gradient 3 Colors'),'HGrad3','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Solid Gradient 3 Colors'),'HGrad4','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Gradient Shadow'),'HGrad5','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Solid Gradient'),'VGrad1','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Pattern Gradient'),'VGrad2','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Pattern Gradient 3 Colors'),'VGrad3','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Solid Gradient 3 Colors'),'VGrad4','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Gradient Shadow'),'VGrad5','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end
735
Is it possible to display the bars with a thicker border

with Gantt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.PaneWidth[False] := 48;
	Chart.Bars.Copy('Task','TaskB').Pattern := Integer(EXGANTTLib_TLB.exPatternThickBox) Or Integer(EXGANTTLib_TLB.exPatternShadow);
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/5/2001','',Null);
		AddBar(AddItem('Task 2'),'TaskB','1/2/2001','1/5/2001','',Null);
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/5/2001','',Null);
	end;
	EndUpdate();
end
734
Is it possible to display the shadow for EBN bars

with Gantt1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.PaneWidth[False] := 48;
	with Chart.Bars.Copy('Task','EBN') do
	begin
		Color := $1000000;
		Pattern := EXGANTTLib_TLB.exPatternFrameShadow;
	end;
	Chart.Bars.Copy('Task','EBN2').Color := $1000000;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'EBN2','1/2/2001','1/5/2001','',Null);
		AddBar(AddItem('Task 2'),'EBN','1/2/2001','1/5/2001','',Null);
		AddBar(AddItem('Task 3'),'EBN2','1/2/2001','1/5/2001','',Null);
	end;
	EndUpdate();
end
733
Can I display a shadow for my bars

with Gantt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.PaneWidth[False] := 48;
	Chart.Bars.Item['Task'].Pattern := Integer(EXGANTTLib_TLB.exPatternFrameShadow) Or Integer(EXGANTTLib_TLB.exPatternShadow);
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/5/2001','',Null);
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/5/2001','',Null);
	end;
	EndUpdate();
end
732
How can I use the Color property for gradient bars

with Gantt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	Chart.PaneWidth[False] := 48;
	with Chart.Bars.Add('V') do
	begin
		Color := $ff;
		StartColor := $ff00;
		EndColor := StartColor;
		Pattern := Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox);
		Height := -1;
	end;
	with Chart.Bars.Add('H') do
	begin
		Color := $ff;
		StartColor := $ff00;
		EndColor := StartColor;
		Pattern := Integer(EXGANTTLib_TLB.exPatternGradient3Colors) Or Integer(EXGANTTLib_TLB.exPatternBox);
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'V','1/2/2001','1/5/2001','',Null);
		AddBar(AddItem('Task 2'),'H','1/2/2001','1/5/2001','',Null);
	end;
	EndUpdate();
end
731
Is there any option to show bars with vertical gradient

with Gantt1 do
begin
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Chart.Bars.Item['Task'] do
	begin
		Color := $ff;
		StartColor := $ff00;
		EndColor := $ffff;
		Pattern := Integer(EXGANTTLib_TLB.exPatternGradientVBox) Or Integer(EXGANTTLib_TLB.exPatternBox);
	end;
	with Items do
	begin
		h := AddItem('Task');
		AddBar(h,'Task','1/2/2001','1/5/2001','',Null);
	end;
end
730
How can I define a new milestone bar

with Gantt1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Chart.FirstVisibleDate := '1/1/2001';
	with Chart.Bars do
	begin
		AddShapeCorner(OleVariant(12345),OleVariant(1));
		AddShapeCorner(OleVariant(12346),OleVariant(2));
		Copy('Milestone','M1').StartShape := EXGANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXGANTTLib_TLB.exShapeIconVBar) Or Integer(EXGANTTLib_TLB.exShapeIconRight));
		Copy('Milestone','M2').StartShape := EXGANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXGANTTLib_TLB.exShapeIconSquare) Or Integer(EXGANTTLib_TLB.exShapeIconRight));
		with Copy('Milestone','MP') do
		begin
			StartShape := EXGANTTLib_TLB.exShapeIconStar;
			StartColor := $ff;
		end;
	end;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Default'),'Milestone','1/2/2001','1/2/2001',Null,Null);
		AddBar(AddItem('Predefined'),'MP','1/3/2001','1/3/2001',Null,Null);
		AddBar(AddItem('Custom 1'),'M1','1/4/2001','1/4/2001',Null,Null);
		AddBar(AddItem('Custom 2'),'M2','1/5/2001','1/5/2001',Null,Null);
	end;
	EndUpdate();
end
729
How can I define my milestone bar, using my icons or pictures

with Gantt1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Chart.FirstVisibleDate := '1/1/2001';
	with Chart.Bars do
	begin
		AddShapeCorner(OleVariant(12345),OleVariant(1));
		Item['Milestone'].StartShape := EXGANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXGANTTLib_TLB.exShapeIconVBar) Or Integer(EXGANTTLib_TLB.exShapeIconRight));
	end;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Milestone','1/2/2001','1/2/2001',Null,Null);
	end;
end
728
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		LevelCount := 2;
		PaneWidth[False] := 0;
		Label[EXGANTTLib_TLB.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256';
		Label[EXGANTTLib_TLB.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> ''<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096';
		LabelToolTip[EXGANTTLib_TLB.exWeek] := '<%d%> <%mmmm%> <%yyyy%> <%ww%>';
		LabelToolTip[EXGANTTLib_TLB.exDay] := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
		FirstWeekDay := EXGANTTLib_TLB.exMonday;
		MonthNames := 'gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre';
		WeekDays := 'domenica lunedì martedì mercoledì giovedì venerdì sabato';
		ToolTip := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
		UnitScale := EXGANTTLib_TLB.exDay;
	end;
	EndUpdate();
end
727
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		LevelCount := 2;
		PaneWidth[False] := 0;
		Label[EXGANTTLib_TLB.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256';
		Label[EXGANTTLib_TLB.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> ''<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096';
		LabelToolTip[EXGANTTLib_TLB.exWeek] := '<%d%> <%mmmm%> <%yyyy%> <%ww%>';
		LabelToolTip[EXGANTTLib_TLB.exDay] := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
		FirstWeekDay := EXGANTTLib_TLB.exMonday;
		MonthNames := 'januari februari maart april mei juni juli augusts september oktober november december';
		WeekDays := 'zondag maandag dinsdag woensdag donderdag vrijdag zaterdag';
		ToolTip := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
		UnitScale := EXGANTTLib_TLB.exDay;
	end;
	EndUpdate();
end
726
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		LevelCount := 2;
		PaneWidth[False] := 0;
		Label[EXGANTTLib_TLB.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256';
		Label[EXGANTTLib_TLB.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> ''<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096';
		LabelToolTip[EXGANTTLib_TLB.exWeek] := '<%d%>.<%mmmm%> <%yyyy%> <%ww%>';
		LabelToolTip[EXGANTTLib_TLB.exDay] := '<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>';
		FirstWeekDay := EXGANTTLib_TLB.exMonday;
		MonthNames := 'Januar Februar März April Mai Juni Juli August September Oktober November Dezember';
		WeekDays := 'Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag';
		ToolTip := '<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>';
		UnitScale := EXGANTTLib_TLB.exDay;
	end;
	EndUpdate();
end
725
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area

with Gantt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		LevelCount := 2;
		PaneWidth[False] := 0;
		Label[EXGANTTLib_TLB.exWeek] := '<|><%ww%><|><%d%> <%m3%> ''<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256';
		Label[EXGANTTLib_TLB.exDay] := '<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> ''<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096';
		LabelToolTip[EXGANTTLib_TLB.exWeek] := '<%d%> <%mmmm%> <%yyyy%> <%ww%>';
		LabelToolTip[EXGANTTLib_TLB.exDay] := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
		FirstWeekDay := EXGANTTLib_TLB.exMonday;
		MonthNames := 'janvier février mars avril mai juin juillet août septembre octobre novembre décembre';
		WeekDays := 'dimanche lundi mardi mercredi jeudi vendredi samedi';
		ToolTip := '<%dddd%> <%d%> <%mmmm%> <%yyyy%>';
		UnitScale := EXGANTTLib_TLB.exDay;
	end;
	EndUpdate();
end
724
How can I filter programatically using more columns

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		Add('Car');
		Add('Equipment');
	end;
	with Items do
	begin
		CellCaption[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'Air Bag';
		CellCaption[OleVariant(AddItem('Toyota')),OleVariant(1)] := 'Air Bag,Air condition';
		CellCaption[OleVariant(AddItem('Ford')),OleVariant(1)] := 'Air condition';
		CellCaption[OleVariant(AddItem('Nissan')),OleVariant(1)] := 'Air Bag,ABS,ESP';
		CellCaption[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'Air Bag, ABS,ESP';
		CellCaption[OleVariant(AddItem('Mazda')),OleVariant(1)] := 'ABS,ESP';
	end;
	with Columns.Item['Car'] do
	begin
		FilterType := EXGANTTLib_TLB.exFilter;
		Filter := 'Mazda';
	end;
	with Columns.Item['Equipment'] do
	begin
		FilterType := EXGANTTLib_TLB.exPattern;
		Filter := '*ABS*|*ESP*';
	end;
	ApplyFilter();
	EndUpdate();
end
723
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )

with Gantt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('Value')) as EXGANTTLib_TLB.Column) do
	begin
		Width := 24;
	end;
	with (IUnknown(Columns.Add('SWITCH - statment')) as EXGANTTLib_TLB.Column) do
	begin
		ComputedField := '%0 switch (''not found'', 1,2,3,4,5,7,8,9,11,13,14)';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(OleVariant(0));
		AddItem(OleVariant(1));
		AddItem(OleVariant(2));
	end;
	EndUpdate();
end
722
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection

with Gantt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('Value')) as EXGANTTLib_TLB.Column) do
	begin
		Width := 24;
	end;
	with (IUnknown(Columns.Add('IN - statment')) as EXGANTTLib_TLB.Column) do
	begin
		ComputedField := '%0 in (1,2,3,4,5,7,8,9,11,13,14) ? ''found'' : ''''';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(OleVariant(0));
		AddItem(OleVariant(1));
		AddItem(OleVariant(2));
	end;
	EndUpdate();
end
721
How can I use the CASE statement (CASE usage)

with Gantt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('Value')) as EXGANTTLib_TLB.Column) do
	begin
		Width := 24;
	end;
	with (IUnknown(Columns.Add('CASE - statment')) as EXGANTTLib_TLB.Column) do
	begin
		ComputedField := '%0 case (default:''not found'';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:''Seven'';8:''Eight'';9:''Nine'';11:''Eleven'';13:''Thirtheen'';14:''Fourth' + 
	'een'')';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(OleVariant(0));
		AddItem(OleVariant(1));
		AddItem(OleVariant(2));
	end;
	EndUpdate();
end
720
How can I use the CASE statement (CASE usage)

with Gantt1 do
begin
	BeginUpdate();
	with (IUnknown(Columns.Add('Value')) as EXGANTTLib_TLB.Column) do
	begin
		Width := 24;
	end;
	with (IUnknown(Columns.Add('CASE - statment')) as EXGANTTLib_TLB.Column) do
	begin
		ComputedField := '%0 case (default:''not found'';1:''One'';2:''Two'';3:''Three'';4:''Four'';5:''Five'';7:''Seven'';8:''Eight'';9:''Nine'';11:''Eleven'';13:''Thirtheen''' + 
	';14:''Fourtheen'')';
		ToolTip := ComputedField;
	end;
	with Items do
	begin
		AddItem(OleVariant(0));
		AddItem(OleVariant(1));
		AddItem(OleVariant(2));
	end;
	EndUpdate();
end
719
Is is possible to use HTML tags to display in the filter caption

with Gantt1 do
begin
	BeginUpdate();
	FilterBarPromptVisible := True;
	FilterBarCaption := 'This is a bit of text being displayed in the filter bar.';
	Columns.Add('');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
	end;
	EndUpdate();
end
718
How can I find the number of items after filtering
with Gantt1 do
begin
	BeginUpdate();
	Columns.Add('');
	with Items do
	begin
		h := AddItem('');
		CellCaption[OleVariant(h),OleVariant(0)] := OleVariant(VisibleItemCount);
	end;
	EndUpdate();
end
717
How can I change the filter caption

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXGANTTLib_TLB.exFilterPromptWords) Or Integer(EXGANTTLib_TLB.exFilterPromptContainsAll);
	FilterBarPromptPattern := 'london robert';
	FilterBarCaption := '<r>Found: ... ';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
716
While using the filter prompt is it is possible to use wild characters

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXGANTTLib_TLB.exFilterPromptPattern;
	FilterBarPromptPattern := 'lon* seat*';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
715
How can I list all items that contains any of specified words, not necessary at the beggining

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXGANTTLib_TLB.exFilterPromptStartWords) Or Integer(EXGANTTLib_TLB.exFilterPromptContainsAny);
	FilterBarPromptPattern := 'london davolio';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
714
How can I list all items that contains any of specified words, not strings

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	Chart.PaneWidth[True] := 0;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXGANTTLib_TLB.exFilterPromptWords) Or Integer(EXGANTTLib_TLB.exFilterPromptContainsAny);
	FilterBarPromptPattern := 'london nancy';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
713
How can I list all items that contains all specified words, not strings

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXGANTTLib_TLB.exFilterPromptWords) Or Integer(EXGANTTLib_TLB.exFilterPromptContainsAll);
	FilterBarPromptPattern := 'london robert';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
712
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := Integer(EXGANTTLib_TLB.exFilterPromptCaseSensitive) Or Integer(EXGANTTLib_TLB.exFilterPromptContainsAny);
	FilterBarPromptPattern := 'Anne';
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
711
Is it possible to list only items that ends with any of specified strings

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXGANTTLib_TLB.exFilterPromptEndWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'Fuller';
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
710
Is it possible to list only items that ends with any of specified strings

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXGANTTLib_TLB.exFilterPromptEndWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'Fuller';
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
709
Is it possible to list only items that starts with any of specified strings

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXGANTTLib_TLB.exFilterPromptStartWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'An M';
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
708
Is it possible to list only items that starts with specified string

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXGANTTLib_TLB.exFilterPromptStartWith;
	FilterBarPromptColumns := '0';
	FilterBarPromptPattern := 'A';
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
707
How can I specify that the list should include any of the seqeunces in the pattern

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXGANTTLib_TLB.exFilterPromptContainsAny;
	FilterBarPromptPattern := 'london seattle';
	Chart.PaneWidth[True] := 0;
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
706
How can I specify that all sequences in the filter pattern must be included in the list

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptType := EXGANTTLib_TLB.exFilterPromptContainsAll;
	FilterBarPromptPattern := 'london manager';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
705
How do I change at runtime the filter prompt

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	Chart.PaneWidth[True] := 0;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptPattern := 'london manager';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
704
How do I specify to filter only a single column when using the filter prompt

with Gantt1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	Chart.PaneWidth[True] := 0;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptColumns := '2,3';
	FilterBarPromptPattern := 'london';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
703
How do I change the prompt or the caption being displayed in the filter bar

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPrompt := 'changed';
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	EndUpdate();
end
702
How do I enable the filter prompt feature

with Gantt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	with Columns do
	begin
		(IUnknown(Add('Name')) as EXGANTTLib_TLB.Column).Width := 96;
		(IUnknown(Add('Title')) as EXGANTTLib_TLB.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Vice President, Sales';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Manager';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Inside Sales Coordinator';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[OleVariant(h0),OleVariant(1)] := 'Sales Representative';
		CellCaption[OleVariant(h0),OleVariant(2)] := 'London';
	end;
	EndUpdate();
end
701
Is it possible to colour a particular column, I mean the cell's foreground color

with Gantt1 do
begin
	BeginUpdate();
	with ConditionalFormats.Add('1',Null) do
	begin
		ForeColor := $ff;
		ApplyTo := EXGANTTLib_TLB.FormatApplyToEnum($1);
	end;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
	end;
	with Items do
	begin
		CellCaption[OleVariant(AddItem(OleVariant(0))),OleVariant(1)] := OleVariant(1);
		CellCaption[OleVariant(AddItem(OleVariant(2))),OleVariant(1)] := OleVariant(3);
		CellCaption[OleVariant(AddItem(OleVariant(4))),OleVariant(1)] := OleVariant(5);
	end;
	EndUpdate();
end